home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #2 / Amiga Plus CD - 1999 - No. 2.iso / System-Boost / Sound / GCSound / test.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-11-12  |  968 b   |  41 lines
  1. /* test of gcsound */
  2.  
  3. /***** IMPORTANT - YOU MUST RUN THE GCSOUND PROGRAM FIRST! */ 
  4.  
  5. OPTIONS RESULTS
  6.  
  7. /* load this library for the delay() command */
  8. addlib('rexxsupport.library',0,-30,0)
  9.  
  10. address command 'run gcsound'
  11.  
  12. /* check if the gcsound port exists.. */
  13. do while ~show(ports,'gcsound')
  14.    delay (5)
  15.    exit
  16.    end
  17.  
  18. /* Talk to gcsound - quote the port name otherwise arexx will */
  19. /* make it upper case */
  20. Address "gcsound"
  21.  
  22. 'Load HowDoIDoIt.8svx how'      /* load a sample (in our dir) */
  23. 'Play how 1 64'                 /* play it once, loud */
  24. say 'Playing...'
  25.  
  26. /* get and print some info on the sample (while it's playing) */
  27. 'Info how'
  28. say 'Sample info (volume, speed) = ' || RESULT
  29.  
  30. /* this is a "multitasking" program. We will not know when */
  31. /* our sample has finished playing, so in order to have the */
  32. /* time to hear our sample before quiting, we delay a little */
  33.  
  34. delay(200)
  35. say 'Quiting. Bye..'
  36.  
  37. 'quit'                    /* quit gcsound */
  38.  
  39.  
  40.  
  41.